/ Amiga Format CD 42 / Amiga Format AFCD42 (Issue 126, Aug 1999).iso / -serious- / programming / basic / newcommandset_v1.80 / examples / asl.bb2

< prev

next >

view JSON data

view as text

open on a Mac

open on a PC

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 3b 20 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |.; *****|********|
|00000010| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000020| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000030| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 00 3b 20 20 |********|****.;  |
|00000040| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000050| 20 4e 65 77 20 41 53 4c | 20 4c 69 62 72 61 72 79 | New ASL| Library|
|00000060| 00 3b 20 20 20 20 43 6f | 64 65 64 20 62 79 20 41 |.;    Co|ded by A|
|00000070| 6c 70 68 61 53 4f 55 4e | 44 20 2d 20 28 63 29 20 |lphaSOUN|D - (c) |
|00000080| 31 39 39 38 20 46 61 6e | 74 61 69 73 69 65 20 73 |1998 Fan|taisie s|
|00000090| 6f 66 74 77 61 72 65 00 | 3b 20 2a 2a 2a 2a 2a 2a |oftware.|; ******|
|000000a0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000000b0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000000c0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000000d0| 2a 2a 2a 00 00 3b 20 2a | 2a 2a 2a 2a 2a 2a 2a 2a |***..; *|********|
|000000e0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000000f0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000100| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000110| 00 3b 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |.;      |        |
|00000120| 20 20 20 20 20 20 20 45 | 78 61 6d 70 6c 65 20 31 |       E|xample 1|
|00000130| 00 3b 20 20 20 20 4f 70 | 65 6e 20 74 68 65 20 33 |.;    Op|en the 3|
|00000140| 20 41 53 4c 20 72 65 71 | 75 65 73 74 65 72 73 20 | ASL req|uesters |
|00000150| 6f 6e 65 20 61 66 74 65 | 72 20 6f 74 68 65 72 00 |one afte|r other.|
|00000160| 3b 20 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |; ******|********|
|00000170| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000180| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000190| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 00 00 3b 20 2a |********|***..; *|
|000001a0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000001b0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000001c0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000001d0| 2a 2a 2a 2a 2a 2a 2a 2a | 00 3b 20 20 20 20 20 20 |********|.;      |
|000001e0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 42 |        |       B|
|000001f0| 65 67 69 6e 20 49 4e 49 | 54 00 3b 20 2a 2a 2a 2a |egin INI|T.; ****|
|00000200| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000210| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000220| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000230| 2a 2a 2a 2a 2a 00 3b 00 | 3b 00 3b 20 33 31 2f 30 |*****.;.|;.; 31/0|
|00000240| 31 2f 31 39 39 39 00 3b | 20 20 20 55 73 65 20 6e |1/1999.;|   Use n|
|00000250| 65 77 20 74 61 67 6c 69 | 73 74 20 73 79 73 74 65 |ew tagli|st syste|
|00000260| 6d 2e 00 3b 20 20 20 55 | 73 65 20 4e 50 65 65 6b |m..;   U|se NPeek|
|00000270| 24 28 29 00 00 80 c3 00 | 00 3b 20 42 65 20 73 75 |$().....|.; Be su|
|00000280| 72 65 20 74 6f 20 64 6f | 20 41 4c 4c 20 74 68 65 |re to do| ALL the|
|00000290| 20 49 6e 69 74 20 73 74 | 75 66 66 20 62 65 66 6f | Init st|uff befo|
|000002a0| 72 65 20 74 72 79 20 74 | 6f 20 45 4e 44 20 79 6f |re try t|o END yo|
|000002b0| 75 72 00 3b 20 70 72 6f | 67 72 61 6d 2c 20 65 6c |ur.; pro|gram, el|
|000002c0| 73 65 20 69 74 20 77 69 | 6c 6c 20 63 72 61 73 68 |se it wi|ll crash|
|000002d0| 2e 00 3b 00 61 2e 6c 20 | 3d 20 d8 88 00 00 80 0b |..;.a.l |= ......|
|000002e0| 20 61 20 3d 20 30 00 20 | 20 dd 82 20 22 49 20 43 | a = 0. | .. "I C|
|000002f0| 61 6e 27 74 20 6f 70 65 | 6e 20 74 68 65 20 41 53 |an't ope|n the AS|
|00000300| 4c 2e 6c 69 62 72 61 72 | 79 20 56 33 36 2b 20 21 |L.librar|y V36+ !|
|00000310| 22 00 20 20 dd 82 20 22 | 42 79 65 20 62 79 65 2e |".  .. "|Bye bye.|
|00000320| 2e 2e 22 00 20 20 d3 82 | 00 20 20 80 02 00 80 c0 |..".  ..|.  .....|
|00000330| 00 00 54 61 67 4c 69 73 | 74 2e 6c 20 3d 20 ca 81 |..TagLis|t.l = ..|
|00000340| 28 31 30 29 00 00 00 3b | 20 2a 2a 2a 2a 2a 2a 2a |(10)...;| *******|
|00000350| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000360| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000370| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000380| 2a 2a 00 3b 20 20 20 20 | 20 20 20 20 20 20 20 20 |**.;    |        |
|00000390| 53 74 61 72 74 20 77 69 | 74 68 20 74 68 65 20 41 |Start wi|th the A|
|000003a0| 53 4c 20 66 69 6c 65 20 | 72 65 71 75 65 73 74 65 |SL file |requeste|
|000003b0| 72 2e 2e 2e 00 3b 20 2a | 2a 2a 2a 2a 2a 2a 2a 2a |r....; *|********|
|000003c0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000003d0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000003e0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000003f0| 00 00 53 65 6c 65 63 74 | 65 64 46 69 6c 65 24 20 |..Select|edFile$ |
|00000400| 3d 20 d8 81 28 30 29 20 | 20 3b 20 4c 6f 6f 6b 2c |= ..(0) | ; Look,|
|00000410| 20 49 20 75 73 65 20 74 | 68 65 20 64 65 66 61 75 | I use t|he defau|
|00000420| 6c 74 20 41 53 4c 20 73 | 65 74 74 69 6e 67 2e 20 |lt ASL s|etting. |
|00000430| 56 65 72 79 20 71 75 69 | 63 6b 20 3b 2d 29 00 00 |Very qui|ck ;-)..|
|00000440| 80 0b 20 53 65 6c 65 63 | 74 65 64 46 69 6c 65 24 |.. Selec|tedFile$|
|00000450| 00 20 20 dd 82 20 22 46 | 69 6c 65 20 73 65 6c 65 |.  .. "F|ile sele|
|00000460| 63 74 65 64 20 3a 20 22 | 2c 20 53 65 6c 65 63 74 |cted : "|, Select|
|00000470| 65 64 46 69 6c 65 24 00 | 20 20 dd 82 20 22 50 6f |edFile$.|  .. "Po|
|00000480| 73 69 74 69 6f 6e 20 61 | 6e 64 20 53 69 7a 65 20 |sition a|nd Size |
|00000490| 6f 66 20 74 68 65 20 72 | 65 71 75 65 73 74 65 72 |of the r|equester|
|000004a0| 20 77 68 65 6e 20 71 75 | 69 74 74 69 6e 67 20 3a | when qu|itting :|
|000004b0| 20 22 00 20 20 dd 82 20 | 22 50 6f 73 3a 20 28 22 | ".  .. |"Pos: ("|
|000004c0| 2c 20 d8 84 2c 20 22 2c | 22 2c 20 d8 85 2c 20 22 |, .., ",|", .., "|
|000004d0| 29 20 53 69 7a 65 3a 20 | 22 2c 20 d8 86 2c 20 22 |) Size: |", .., "|
|000004e0| 2a 22 2c 20 d8 87 00 80 | 22 00 20 20 dd 82 20 22 |*", ....|".  .. "|
|000004f0| 41 53 4c 20 46 69 6c 65 | 20 52 65 71 75 65 73 74 |ASL File| Request|
|00000500| 65 72 20 63 61 6e 63 65 | 6c 6c 65 64 2e 22 00 80 |er cance|lled."..|
|00000510| c0 00 00 00 3b 20 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |....; **|********|
|00000520| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000530| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000540| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 00 |********|*******.|
|00000550| 3b 20 20 20 20 20 20 20 | 20 20 20 20 20 20 2e 2e |;       |      ..|
|00000560| 2e 46 6f 6c 6c 6f 77 65 | 64 20 62 79 20 74 68 65 |.Followe|d by the|
|00000570| 20 46 6f 6e 74 52 65 71 | 75 65 73 74 65 72 2e 2e | FontReq|uester..|
|00000580| 2e 00 3b 20 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |..; ****|********|
|00000590| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000005a0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000005b0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 00 00 ca |********|*****...|
|000005c0| 84 20 23 41 53 4c 46 4f | 5f 49 6e 69 74 69 61 6c |. #ASLFO|_Initial|
|000005d0| 54 6f 70 45 64 67 65 20 | 2c 20 31 34 00 20 20 20 |TopEdge |, 14.   |
|000005e0| 20 20 20 ca 83 20 23 41 | 53 4c 46 4f 5f 49 6e 69 |   .. #A|SLFO_Ini|
|000005f0| 74 69 61 6c 4c 65 66 74 | 45 64 67 65 2c 20 32 30 |tialLeft|Edge, 20|
|00000600| 00 20 20 20 20 20 20 ca | 83 20 23 41 53 4c 46 4f |.      .|. #ASLFO|
|00000610| 5f 49 6e 69 74 69 61 6c | 57 69 64 74 68 20 20 20 |_Initial|Width   |
|00000620| 2c 20 34 30 30 00 20 20 | 20 20 20 20 ca 83 20 23 |, 400.  |    .. #|
|00000630| 41 53 4c 46 4f 5f 49 6e | 69 74 69 61 6c 4e 61 6d |ASLFO_In|itialNam|
|00000640| 65 20 20 20 20 2c 20 22 | 74 6f 70 61 7a 2e 66 6f |e    , "|topaz.fo|
|00000650| 6e 74 22 00 20 20 20 20 | 20 20 ca 83 20 23 41 53 |nt".    |  .. #AS|
|00000660| 4c 46 4f 5f 49 6e 69 74 | 69 61 6c 53 69 7a 65 20 |LFO_Init|ialSize |
|00000670| 20 20 20 2c 20 31 31 00 | 20 20 20 20 20 20 ca 83 |   , 11.|      ..|
|00000680| 20 23 41 53 4c 46 4f 5f | 44 6f 53 74 79 6c 65 20 | #ASLFO_|DoStyle |
|00000690| 20 20 20 20 20 20 20 2c | 20 31 00 20 20 20 20 20 |       ,| 1.     |
|000006a0| 20 ca 83 20 23 41 53 4c | 46 4f 5f 46 69 78 65 64 | .. #ASL|FO_Fixed|
|000006b0| 57 69 64 74 68 4f 6e 6c | 79 20 2c 20 31 00 20 20 |WidthOnl|y , 1.  |
|000006c0| 20 20 20 20 ca 83 20 23 | 41 53 4c 46 4f 5f 44 6f |    .. #|ASLFO_Do|
|000006d0| 46 72 6f 6e 74 50 65 6e | 20 20 20 20 20 2c 20 31 |FrontPen|     , 1|
|000006e0| 00 20 20 20 20 20 20 ca | 83 20 23 41 53 4c 46 4f |.      .|. #ASLFO|
|000006f0| 5f 44 6f 42 61 63 6b 50 | 65 6e 20 20 20 20 20 20 |_DoBackP|en      |
|00000700| 2c 20 31 00 20 20 20 20 | 20 20 ca 83 20 23 41 53 |, 1.    |  .. #AS|
|00000710| 4c 46 4f 5f 54 69 74 6c | 65 54 65 78 74 20 20 20 |LFO_Titl|eText   |
|00000720| 20 20 20 2c 22 42 6c 69 | 74 7a 20 49 49 20 52 75 |   ,"Bli|tz II Ru|
|00000730| 6c 65 7a 22 00 00 2a 61 | 2e 4e 46 6f 6e 74 49 6e |lez"..*a|.NFontIn|
|00000740| 66 6f 20 3d 20 d8 82 28 | 54 61 67 4c 69 73 74 29 |fo = ..(|TagList)|
|00000750| 00 00 80 0b 20 2a 61 00 | 20 20 dd 82 20 22 46 6f |.... *a.|  .. "Fo|
|00000760| 6e 74 4e 61 6d 65 20 3d | 20 22 2c 20 d2 87 28 2a |ntName =| ", ..(*|
|00000770| 61 5c 4e 61 6d 65 29 2c | 20 22 20 22 2c 20 2a 61 |a\Name),| " ", *a|
|00000780| 5c 59 53 69 7a 65 00 20 | 20 dd 82 20 22 53 74 79 |\YSize. | .. "Sty|
|00000790| 6c 65 20 3d 20 22 2c 20 | 2a 61 5c 53 74 79 6c 65 |le = ", |*a\Style|
|000007a0| 2c 20 22 2c 20 46 72 6f | 6e 74 50 65 6e 20 3d 20 |, ", Fro|ntPen = |
|000007b0| 22 2c 20 2a 61 5c 46 72 | 6f 6e 74 50 65 6e 2c 20 |", *a\Fr|ontPen, |
|000007c0| 22 2c 20 42 61 63 6b 50 | 65 6e 20 3d 20 22 2c 20 |", BackP|en = ", |
|000007d0| 2a 61 5c 42 61 63 6b 50 | 65 6e 00 80 22 00 20 20 |*a\BackP|en..".  |
|000007e0| dd 82 20 22 41 53 4c 20 | 46 6f 6e 74 20 52 65 71 |.. "ASL |Font Req|
|000007f0| 75 65 73 74 65 72 20 63 | 61 6e 63 65 6c 6c 65 64 |uester c|ancelled|
|00000800| 2e 22 00 80 c0 00 00 00 | 3b 20 2a 2a 2a 2a 2a 2a |."......|; ******|
|00000810| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000820| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000830| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000840| 2a 2a 2a 00 3b 20 20 20 | 20 20 20 20 20 20 20 20 |***.;   |        |
|00000850| 20 20 2e 2e 2e 61 6e 64 | 20 74 68 65 20 41 53 4c |  ...and| the ASL|
|00000860| 20 53 63 72 65 65 6e 20 | 72 65 71 75 65 73 74 65 | Screen |requeste|
|00000870| 72 2e 00 3b 20 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |r..; ***|********|
|00000880| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000890| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000008a0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 00 00 |********|******..|
|000008b0| ca 84 20 23 41 53 4c 53 | 4d 5f 49 6e 69 74 69 61 |.. #ASLS|M_Initia|
|000008c0| 6c 54 6f 70 45 64 67 65 | 20 2c 20 31 34 00 20 20 |lTopEdge| , 14.  |
|000008d0| 20 20 20 20 ca 83 20 23 | 41 53 4c 53 4d 5f 49 6e |    .. #|ASLSM_In|
|000008e0| 69 74 69 61 6c 4c 65 66 | 74 45 64 67 65 2c 20 32 |itialLef|tEdge, 2|
|000008f0| 30 00 20 20 20 20 20 20 | ca 83 20 23 41 53 4c 53 |0.      |.. #ASLS|
|00000900| 4d 5f 49 6e 69 74 69 61 | 6c 57 69 64 74 68 20 20 |M_Initia|lWidth  |
|00000910| 20 2c 20 33 30 30 00 20 | 20 20 20 20 20 ca 83 20 | , 300. |     .. |
|00000920| 23 41 53 4c 53 4d 5f 49 | 6e 69 74 69 61 6c 48 65 |#ASLSM_I|nitialHe|
|00000930| 69 67 68 74 20 20 2c 20 | 32 30 30 00 20 20 20 20 |ight  , |200.    |
|00000940| 20 20 ca 83 20 23 41 53 | 4c 53 4d 5f 44 6f 57 69 |  .. #AS|LSM_DoWi|
|00000950| 64 74 68 20 20 20 20 20 | 20 20 20 2c 20 31 00 20 |dth     |   , 1. |
|00000960| 20 20 20 20 20 ca 83 20 | 23 41 53 4c 53 4d 5f 44 |     .. |#ASLSM_D|
|00000970| 6f 48 65 69 67 68 74 20 | 20 20 20 20 20 20 2c 20 |oHeight |      , |
|00000980| 31 00 20 20 20 20 20 20 | ca 83 20 23 41 53 4c 53 |1.      |.. #ASLS|
|00000990| 4d 5f 44 6f 44 65 70 74 | 68 20 20 20 20 20 20 20 |M_DoDept|h       |
|000009a0| 20 2c 20 31 00 20 20 20 | 20 20 20 ca 83 20 23 41 | , 1.   |   .. #A|
|000009b0| 53 4c 53 4d 5f 44 6f 41 | 75 74 6f 53 63 72 6f 6c |SLSM_DoA|utoScrol|
|000009c0| 6c 20 20 20 2c 20 31 00 | 20 20 20 20 20 20 ca 83 |l   , 1.|      ..|
|000009d0| 20 23 41 53 4c 53 4d 5f | 44 6f 4f 76 65 72 73 63 | #ASLSM_|DoOversc|
|000009e0| 61 6e 54 79 70 65 20 2c | 20 31 00 00 2a 62 2e 4e |anType ,| 1..*b.N|
|000009f0| 53 63 72 65 65 6e 49 6e | 66 6f 20 3d 20 d8 83 28 |ScreenIn|fo = ..(|
|00000a00| 54 61 67 4c 69 73 74 29 | 00 00 80 0b 20 2a 62 00 |TagList)|.... *b.|
|00000a10| 20 20 dd 81 20 22 44 69 | 73 70 6c 61 79 49 44 20 |  .. "Di|splayID |
|00000a20| 3d 20 22 2c 20 2a 62 5c | 44 69 73 70 6c 61 79 49 |= ", *b\|DisplayI|
|00000a30| 44 2c 20 22 20 57 69 64 | 74 68 20 3d 20 22 2c 20 |D, " Wid|th = ", |
|00000a40| 2a 62 5c 57 69 64 74 68 | 2c 20 22 20 48 65 69 67 |*b\Width|, " Heig|
|00000a50| 68 74 20 3d 20 22 2c 20 | 2a 62 5c 48 65 69 67 68 |ht = ", |*b\Heigh|
|00000a60| 74 2c 20 22 20 44 65 70 | 74 68 20 3d 20 22 2c 20 |t, " Dep|th = ", |
|00000a70| 2a 62 5c 44 65 70 74 68 | 00 80 22 00 20 20 dd 82 |*b\Depth|..".  ..|
|00000a80| 20 22 41 53 4c 20 53 63 | 72 65 65 6e 20 52 65 71 | "ASL Sc|reen Req|
|00000a90| 75 65 73 74 65 72 20 63 | 61 6e 63 65 6c 6c 65 64 |uester c|ancelled|
|00000aa0| 2e 22 00 80 c0 00 00 d3 | 82 00 80 02 00          |."......|.....   |
+--------+-------------------------+-------------------------+--------+--------+